home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
pcboard
/
ssspcb20.zip
/
ISLPCB20.ZIP
/
SITELIST.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-27
|
26KB
|
1,500 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String TSTRING022(100)
String TSTRING023(250)
String TSTRING024(250)
Declare Procedure PROC001()
Declare Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
Declare Procedure PROC003()
;------------------------------------------------------------------------------
Goto LABEL001
End
;------------------------------------------------------------------------------
Procedure PROC001()
Integer INTEGER001
Integer INTEGER002
Byte BYTE001
INTEGER001 = GetDrive()
INTEGER002 = Os()
FOpen 1, PPEPath() + "FTP.TXT", 0, 2
BYTE001 = FTell(1)
FClose 1
EndProc
;------------------------------------------------------------------------------
Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
STRING001 = "NO"
STRING002 = "UNREGISTERED"
STRING003 = "UNREGISTERED"
EndProc
;------------------------------------------------------------------------------
Procedure PROC003()
Color 0
Cls
AnsiPos 25, 10
Print "@X0FSHAREWARE EVALUATION VERSION"
AnsiPos 20, 12
Print "@X0ECopyright 1995,96 (c) Shuttle Software"
AnsiPos 30, 14
Print "@X0EAll Rights Reserved"
Delay 55
EndProc
:LABEL001
STRING007 = ""
STRING013 = ""
STRING008 = ""
STRING010 = ""
STRING011 = ""
STRING017 = ""
STRING015 = ""
STRING019 = ""
STRING020 = ""
STRING021 = ""
STRING004 = ""
STRING005 = "YES"
STRING006 = "NO"
STRING009 = "NO"
STRING014 = "NO"
STRING018 = "N"
STRING016 = "N"
STRING012 = "N"
INTEGER008 = 0
INTEGER009 = 0
INTEGER010 = 0
INTEGER011 = 0
INTEGER012 = 0
INTEGER013 = 0
INTEGER014 = 0
INTEGER007 = 0
INTEGER006 = 0
INTEGER005 = 0
INTEGER003 = 0
INTEGER004 = 0
PROC001()
If (AnsiOn()) Then
Log "-=≡[ Internet Site List Entered ]≡=-", 0
PROC002(STRING021, STRING019, STRING020)
Gosub LABEL002
PROC003()
Else
PrintLn "This program requires that your ANSI support is enabled!"
Wait
Endif
End
:LABEL002
While (STRING010 <> "Q") Do
STRING008 = ""
STRING011 = ""
STRING005 = "YES"
Color 0
Cls
PrintLn "@X00"
PrintLn "@X0E @X0B▐@X1B ┌────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
PrintLn "@X0E @X0B▐@X1B │@X1E INTERNET SITE LIST v2.0 @X1B @X1E @X10│@X1B @X08▌@X0B"
PrintLn "@X0F▄▄▄▄▄@X0B▐@X1B │@X1E @X10│@X1B @X08▌@X07▄▄@X0F▄▄@X0B"
PrintLn "@X0E▄▄▄▄▄@X0B▐@X1B │@X1E @X10│@X1B @X08▌@X06▄▄@X0E▄▄@X0B"
PrintLn "@X0D▄▄▄▄▄@X0B▐@X1B └@X10────────────────────────────────────────────────────────────────┘@X1B @X08▌@X05▄▄@X0D▄▄@X0B"
AnsiPos 17, 5
Print "@X1FSysOp@X17: @X1F", STRING019
AnsiPos 43, 5
Print "@X1FBBS@X17: @X1F", STRING020
AnsiPos 1, 7
PrintLn "@X0C▄▄▄▄▄▄▄▄@X04▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0C▄▄@X0B"
PrintLn "@X0A▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X1B ┌─────────────────────────────────────@X10┐@X19 @X08▌@X02▄▄@X0A▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B"
PrintLn "@X09▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X1B │ @X1CF@X1FTP Site (File Transfer Protocol)@X1B @X10│@X19 @X08▌@X01▄▄@X09▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B"
PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X1B │ @X1CW@X1FWW Site (World Wide Web)@X1B @X10│@X19 @X08▌@X07▄▄@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B"
PrintLn "@X0E @X0B ▐@X1B │ @X1CI@X1FRC Site (Internet Relay Chat)@X1B @X10│@X19 @X08▌@X0B"
PrintLn "@X0E @X0B ▐@X1B │ @X1CT@X1FelNet Site (Remote Logon)@X1B @X10│@X19 @X08▌@X0B"
PrintLn "@X0E @X0B ▐@X1B │ @X1CU@X1FseNet Site (Newsgroup List)@X1B @X10│@X19 @X08▌@X0B"
PrintLn "@X0E @X0B ▐@X1B │ @X1CE@X1F-Mail Site (Electronic Mail)@X1B @X10│@X19 @X08▌@X0B"
PrintLn "@X0E @X0B ▐@X1B │ @X1CS@X1Fearch for a Internet Site@X1B @X10│@X19 @X08▌@X0B"
PrintLn "@X0E @X0B ▐@X1B │ @X1CD@X1Fownload a Internet Site List@X1B @X10│@X19 @X08▌@X0B"
PrintLn "@X0E @X0B ▐@X1B │ @X1CQ@X1Fuit and exit back to the BBS@X1B @X10│@X19 @X08▌@X0B"
PrintLn "@X0E @X0B ▐@X1B └@X10─────────────────────────────────────┘@X19 @X08▌@X0B"
PrintLn "@X00"
Print "@X0A Use the @X0F @X0Aand @X0F @X0Akeys to highlight an option"
AnsiPos 24, 17
Print "@X70Quit and exit back to the BBS @X1B"
INTEGER014 = 17
INTEGER007 = 17
While (STRING005 <> "NO") Do
STRING010 = Inkey()
If (Left(STRING010, 2) == "UP") Then
If (INTEGER007 > 9) Then
INTEGER014 = INTEGER007
INTEGER007 = INTEGER007 - 1
Gosub LABEL004
Endif
Endif
If (Left(STRING010, 4) == "DOWN") Then
If (INTEGER007 < 17) Then
INTEGER014 = INTEGER007
INTEGER007 = INTEGER007 + 1
Gosub LABEL004
Endif
Endif
If (STRING010 == Chr(13)) Then
If (INTEGER007 == 9) Then
STRING010 = "F"
STRING005 = "NO"
Endif
If (INTEGER007 == 10) Then
STRING010 = "W"
STRING005 = "NO"
Endif
If (INTEGER007 == 11) Then
STRING010 = "I"
STRING005 = "NO"
Endif
If (INTEGER007 == 12) Then
STRING010 = "T"
STRING005 = "NO"
Endif
If (INTEGER007 == 13) Then
STRING010 = "U"
STRING005 = "NO"
Endif
If (INTEGER007 == 14) Then
STRING010 = "E"
STRING005 = "NO"
Endif
If (INTEGER007 == 15) Then
STRING010 = "S"
STRING005 = "NO"
Endif
If (INTEGER007 == 16) Then
STRING010 = "D"
STRING005 = "NO"
Endif
If (INTEGER007 == 17) Then
STRING010 = "Q"
STRING005 = "NO"
Endif
Endif
If (Upper(STRING010) == Chr(70)) Then
STRING010 = "F"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(87)) Then
STRING010 = "W"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(73)) Then
STRING010 = "I"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(84)) Then
STRING010 = "T"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(85)) Then
STRING010 = "U"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(69)) Then
STRING010 = "E"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(83)) Then
STRING010 = "S"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(68)) Then
STRING010 = "D"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(81)) Then
STRING010 = "Q"
STRING005 = "NO"
Endif
EndWhile
If (STRING010 == "D") Then
Gosub LABEL059
AnsiPos 12, 10
PrintLn "@X0APick the Internet Site Listing you would like to download."
PrintLn
Print "@X0E [@X0FF@X0E]TP, [@X0FW@X0E]WW, [@X0FI@X0E]RC, [@X0FT@X0E]elNet, [@X0FU@X0E]seNet, [@X0FE@X0E]Mail, or [@X0FA@X0E]ll of them"
InputText " ", STRING011, 15, 1
If (Upper(STRING011) == "I") Then
PrintLn "@X00"
Download "IRC.TXT"
Goto LABEL003
Endif
If (Upper(STRING011) == "F") Then
PrintLn "@X00"
Download "FTP.TXT"
Goto LABEL003
Endif
If (Upper(STRING011) == "W") Then
PrintLn "@X00"
Download "WWW.TXT"
Goto LABEL003
Endif
If (Upper(STRING011) == "T") Then
PrintLn "@X00"
Download "TELNET.TXT"
Goto LABEL003
Endif
If (Upper(STRING011) == "U") Then
PrintLn "@X00"
Download "USENET.TXT"
Goto LABEL003
Endif
If (Upper(STRING011) == "E") Then
PrintLn "@X00"
Download "EMAIL.TXT"
Goto LABEL003
Endif
If (Upper(STRING011) == "A") Then
PrintLn "@X00"
Download "EMAIL.TXT FTP.TXT IRC.TXT TELNET.TXT USENET.TXT WWW.TXT"
Endif
:LABEL003
Continue
Endif
If (STRING010 == "I") Then
Gosub LABEL059
AnsiPos 9, 10
Print "@X0EWould you like to [@X0FA@X0E]dd a IRC site, or [@X0FL@X0E]ist all IRC sites"
InputText " ", STRING011, 15, 1
If (Upper(STRING011) == "A") Gosub LABEL005
If (Upper(STRING011) == "L") Gosub LABEL011
Continue
Endif
If (STRING010 == "F") Then
Gosub LABEL059
AnsiPos 9, 10
Print "@X0EWould you like to [@X0FA@X0E]dd a FTP site, or [@X0FL@X0E]ist all FTP sites"
InputText " ", STRING011, 15, 1
If (Upper(STRING011) == "A") Gosub LABEL006
If (Upper(STRING011) == "L") Gosub LABEL017
Continue
Endif
If (STRING010 == "W") Then
Gosub LABEL059
AnsiPos 9, 10
Print "@X0EWould you like to [@X0FA@X0E]dd a WWW site, or [@X0FL@X0E]ist all WWW sites"
InputText " ", STRING011, 15, 1
If (Upper(STRING011) == "A") Gosub LABEL007
If (Upper(STRING011) == "L") Gosub LABEL023
Continue
Endif
If (STRING010 == "T") Then
Gosub LABEL059
AnsiPos 6, 10
Print "@X0EWould you like to [@X0FA@X0E]dd a TelNet site, or [@X0FL@X0E]ist all TelNet sites"
InputText " ", STRING011, 15, 1
If (Upper(STRING011) == "A") Gosub LABEL008
If (Upper(STRING011) == "L") Gosub LABEL029
Continue
Endif
If (STRING010 == "U") Then
Gosub LABEL059
AnsiPos 6, 10
Print "@X0EWould you like to [@X0FA@X0E]dd a UseNet site, or [@X0FL@X0E]ist all UseNet sites"
InputText " ", STRING011, 15, 1
If (Upper(STRING011) == "A") Gosub LABEL009
If (Upper(STRING011) == "L") Gosub LABEL035
Continue
Endif
If (STRING010 == "E") Then
Gosub LABEL059
AnsiPos 6, 10
Print "@X0EWould you like to [@X0FA@X0E]dd a E-Mail site, or [@X0FL@X0E]ist all E-Mail sites"
InputText " ", STRING011, 15, 1
If (Upper(STRING011) == "A") Gosub LABEL010
If (Upper(STRING011) == "L") Gosub LABEL041
Continue
Endif
If (STRING010 == "S") Then
Gosub LABEL059
AnsiPos 13, 10
PrintLn "@X0APick the Internet Site Listing you would like to search."
PrintLn
Print "@X0E [@X0FF@X0E]TP, [@X0FW@X0E]WW, [@X0FI@X0E]RC, [@X0FT@X0E]elNet, [@X0FU@X0E]seNet, [@X0FE@X0E]Mail, or [@X0FA@X0E]ll of them"
InputText " ", STRING008, 15, 1
Gosub LABEL047
Endif
EndWhile
Return
:LABEL004
If (INTEGER014 == 17) Then
AnsiPos 24, 17
Print "@X1CQ@X1Fuit and exit back to the BBS @X1B"
Endif
If (INTEGER014 == 16) Then
AnsiPos 24, 16
Print "@X1CD@X1Fownload a Internet Site List @X1B"
Endif
If (INTEGER014 == 15) Then
AnsiPos 24, 15
Print "@X1CS@X1Fearch for a Internet Site @X1B"
Endif
If (INTEGER014 == 14) Then
AnsiPos 24, 14
Print "@X1CE@X1F-Mail Site (Electronic Mail) @X1B"
Endif
If (INTEGER014 == 13) Then
AnsiPos 24, 13
Print "@X1CU@X1FseNet Site (Newsgroup List) @X1B"
Endif
If (INTEGER014 == 12) Then
AnsiPos 24, 12
Print "@X1CT@X1FelNet Site (Remote Logon) @X1B"
Endif
If (INTEGER014 == 11) Then
AnsiPos 24, 11
Print "@X1CI@X1FRC Site (Internet Relay Chat) @X1B"
Endif
If (INTEGER014 == 10) Then
AnsiPos 24, 10
Print "@X1CW@X1FWW Site (World Wide Web) @X1B"
Endif
If (INTEGER014 == 9) Then
AnsiPos 24, 9
Print "@X1CF@X1FTP Site (File Transfer Protocol)@X1B"
Endif
If (INTEGER007 == 17) Then
AnsiPos 24, 17
Print "@X70Quit and exit back to the BBS @X1B"
Endif
If (INTEGER007 == 16) Then
AnsiPos 24, 16
Print "@X70Download a Internet Site List @X1B"
Endif
If (INTEGER007 == 15) Then
AnsiPos 24, 15
Print "@X70Search for a Internet Site @X1B"
Endif
If (INTEGER007 == 14) Then
AnsiPos 24, 14
Print "@X70E-Mail Site (Electronic Mail) @X1B"
Endif
If (INTEGER007 == 13) Then
AnsiPos 24, 13
Print "@X70UseNet Site (Newsgroup List) @X1B"
Endif
If (INTEGER007 == 12) Then
AnsiPos 24, 12
Print "@X70TelNet Site (Remote Logon) @X1B"
Endif
If (INTEGER007 == 11) Then
AnsiPos 24, 11
Print "@X70IRC Site (Internet Relay Chat) @X1B"
Endif
If (INTEGER007 == 10) Then
AnsiPos 24, 10
Print "@X70WWW Site (World Wide Web) @X1B"
Endif
If (INTEGER007 == 9) Then
AnsiPos 24, 9
Print "@X70FTP Site (File Transfer Protocol)@X1B"
Endif
Return
:LABEL005
STRING013 = ""
STRING012 = ""
While (Upper(STRING012) <> "Y") Do
STRING009 = "NO"
STRING012 = ""
STRING016 = "N"
Color 0
Cls
AnsiPos 1, 8
PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
PrintLn "@X1B▌│@X1E INTERNET RELAY CHAT @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1A Enter the address and description of a IRC site to add @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
AnsiPos 3, 13
Print Space(75)
AnsiPos 3, 13
InputText " ", STRING013, 15, 70
AnsiPos 9, 16
Print "@X0EDid you enter this IRC site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
InputText " ", STRING012, 15, 1
If (Upper(STRING012) == "Q") Break
EndWhile
If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
FAppend 1, PPEPath() + "IRC.TXT", 1, 2
FPutLn 1, " " + STRING013
FClose 1
AnsiPos 31, 18
PrintLn "@X0AIRC Site Added!"
Log "IRC Site Added: " + STRING013, 0
STRING009 = "YES"
Else
AnsiPos 35, 18
PrintLn "@X0CSkipped!"
STRING009 = "NO"
Endif
AnsiPos 1, 20
If (STRING009 == "YES") Then
Print "@X0E Would you like to add another IRC site [@X0FY@X0E/@X0FN@X0E]"
InputText " ", STRING016, 15, 1
If (Upper(STRING016) == "Y") Goto LABEL005
Else
Wait
Endif
Return
:LABEL006
STRING013 = ""
STRING012 = ""
While (Upper(STRING012) <> "Y") Do
STRING009 = "NO"
STRING012 = ""
STRING016 = "N"
Color 0
Cls
AnsiPos 1, 8
PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
PrintLn "@X1B▌│@X1E FILE TRANSFER PROTOCOL @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1A Enter the address and description of a FTP site to add @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
AnsiPos 3, 13
Print Space(75)
AnsiPos 3, 13
InputText " ", STRING013, 15, 70
AnsiPos 9, 16
Print "@X0EDid you enter this FTP site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
InputText " ", STRING012, 15, 1
If (Upper(STRING012) == "Q") Break
EndWhile
If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
FAppend 1, PPEPath() + "FTP.TXT", 1, 2
FPutLn 1, " " + STRING013
FClose 1
AnsiPos 31, 18
PrintLn "@X0AFTP Site Added!"
Log "FTP Site Added: " + STRING013, 0
STRING009 = "YES"
Else
AnsiPos 35, 18
PrintLn "@X0CSkipped!"
STRING009 = "NO"
Endif
AnsiPos 1, 20
If (STRING009 == "YES") Then
Print "@X0E Would you like to add another FTP site [@X0FY@X0E/@X0FN@X0E]"
InputText " ", STRING016, 15, 1
If (Upper(STRING016) == "Y") Goto LABEL006
Else
Wait
Endif
Return
:LABEL007
STRING013 = ""
STRING012 = ""
While (Upper(STRING012) <> "Y") Do
STRING009 = "NO"
STRING012 = ""
STRING016 = "N"
Color 0
Cls
AnsiPos 1, 8
PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
PrintLn "@X1B▌│@X1E WORLD WIDE WEB @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1A Enter the address and description of a WWW site to add @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
AnsiPos 3, 13
Print Space(75)
AnsiPos 3, 13
InputText " ", STRING013, 15, 70
AnsiPos 9, 16
Print "@X0EDid you enter this WWW site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
InputText " ", STRING012, 15, 1
If (Upper(STRING012) == "Q") Break
EndWhile
If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
FAppend 1, PPEPath() + "WWW.TXT", 1, 2
FPutLn 1, " " + STRING013
FClose 1
AnsiPos 31, 18
PrintLn "@X0AWWW Site Added!"
Log "WWW Site Added: " + STRING013, 0
STRING009 = "YES"
Else
AnsiPos 35, 18
PrintLn "@X0CSkipped!"
STRING009 = "NO"
Endif
AnsiPos 1, 20
If (STRING009 == "YES") Then
Print "@X0E Would you like to add another WWW site [@X0FY@X0E/@X0FN@X0E]"
InputText " ", STRING016, 15, 1
If (Upper(STRING016) == "Y") Goto LABEL007
Else
Wait
Endif
Return
:LABEL008
STRING013 = ""
STRING012 = ""
While (Upper(STRING012) <> "Y") Do
STRING009 = "NO"
STRING012 = ""
STRING016 = "N"
Color 0
Cls
AnsiPos 1, 8
PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
PrintLn "@X1B▌│@X1E TELNET REMOTE LOGON @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1A Enter the address and description of a TelNet site to add @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
AnsiPos 3, 13
Print Space(75)
AnsiPos 3, 13
InputText " ", STRING013, 15, 70
AnsiPos 7, 16
Print "@X0EDid you enter this TelNet site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
InputText " ", STRING012, 15, 1
If (Upper(STRING012) == "Q") Break
EndWhile
If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
FAppend 1, PPEPath() + "TELNET.TXT", 1, 2
FPutLn 1, " " + STRING013
FClose 1
AnsiPos 30, 18
PrintLn "@X0ATelNet Site Added!"
Log "TelNet Site Added: " + STRING013, 0
STRING009 = "YES"
Else
AnsiPos 35, 18
PrintLn "@X0CSkipped!"
STRING009 = "NO"
Endif
AnsiPos 1, 20
If (STRING009 == "YES") Then
Print "@X0E Would you like to add another TelNet site [@X0FY@X0E/@X0FN@X0E]"
InputText " ", STRING016, 15, 1
If (Upper(STRING016) == "Y") Goto LABEL008
Else
Wait
Endif
Return
:LABEL009
STRING013 = ""
STRING012 = ""
While (Upper(STRING012) <> "Y") Do
STRING009 = "NO"
STRING012 = ""
STRING016 = "N"
Color 0
Cls
AnsiPos 1, 8
PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
PrintLn "@X1B▌│@X1E USENET NEWSGROUPS @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1A Enter the address and description of a UseNet site to add @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
AnsiPos 3, 13
Print Space(75)
AnsiPos 3, 13
InputText " ", STRING013, 15, 70
AnsiPos 7, 16
Print "@X0EDid you enter this UseNet site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
InputText " ", STRING012, 15, 1
If (Upper(STRING012) == "Q") Break
EndWhile
If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
FAppend 1, PPEPath() + "USENET.TXT", 1, 2
FPutLn 1, " " + STRING013
FClose 1
AnsiPos 30, 18
PrintLn "@X0AUseNet Site Added!"
Log "UseNet Site Added: " + STRING013, 0
STRING009 = "YES"
Else
AnsiPos 35, 18
PrintLn "@X0CSkipped!"
STRING009 = "NO"
Endif
AnsiPos 1, 20
If (STRING009 == "YES") Then
Print "@X0E Would you like to add another UseNet site [@X0FY@X0E/@X0FN@X0E]"
InputText " ", STRING016, 15, 1
If (Upper(STRING016) == "Y") Goto LABEL009
Else
Wait
Endif
Return
:LABEL010
STRING013 = ""
STRING012 = ""
While (Upper(STRING012) <> "Y") Do
STRING009 = "NO"
STRING012 = ""
STRING016 = "N"
Color 0
Cls
AnsiPos 1, 8
PrintLn "@X1B▌┌───────────────────────────────────────────────────────────────────────────@X10┐@X18▐@X1B"
PrintLn "@X1B▌│@X1E ELECTRONIC MAIL @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1A Enter the address and description of an E-Mail site to add @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌│@X1E @X10│@X18▐@X1B"
PrintLn "@X1B▌└@X10───────────────────────────────────────────────────────────────────────────┘@X18▐@X07"
AnsiPos 3, 13
Print Space(75)
AnsiPos 3, 13
InputText " ", STRING013, 15, 70
AnsiPos 7, 16
Print "@X0EDid you enter this E-Mail site correctly [@X0FY@X0E]es, [@X0FN@X0E]o, [@X0FQ@X0E]uit"
InputText " ", STRING012, 15, 1
If (Upper(STRING012) == "Q") Break
EndWhile
If ((STRING013 <> "") && (Upper(STRING012) <> "Q")) Then
FAppend 1, PPEPath() + "EMAIL.TXT", 1, 2
FPutLn 1, " " + STRING013
FClose 1
AnsiPos 30, 18
PrintLn "@X0AE-Mail Site Added!"
Log "E-Mail Site Added: " + STRING013, 0
STRING009 = "YES"
Else
AnsiPos 35, 18
PrintLn "@X0CSkipped!"
STRING009 = "NO"
Endif
AnsiPos 1, 20
If (STRING009 == "YES") Then
Print "@X0E Would you like to add another E-Mail site [@X0FY@X0E/@X0FN@X0E]"
InputText " ", STRING016, 15, 1
If (Upper(STRING016) == "Y") Goto LABEL010
Else
Wait
Endif
Return
:LABEL011
STRING006 = "NO"
INTEGER009 = 0
INTEGER010 = 0
INTEGER011 = 0
INTEGER012 = 0
FOpen 1, PPEPath() + "IRC.TXT", 0, 2
FGet 1, STRING013
:LABEL012
If (Ferr(1)) Goto LABEL013
INTEGER009 = INTEGER009 + 1
TSTRING023(INTEGER009) = STRING013
If (INTEGER009 > 249) Goto LABEL013
FGet 1, STRING013
Goto LABEL012
:LABEL013
If (INTEGER009 > 249) Then
FGet 1, STRING013
:LABEL014
If (Ferr(1)) Goto LABEL015
INTEGER010 = INTEGER010 + 1
TSTRING024(INTEGER010) = STRING013
If (INTEGER010 > 249) Goto LABEL015
FGet 1, STRING013
Goto LABEL014
Endif
:LABEL015
FClose 1
While (STRING006 <> "YES") Do
STRING007 = ""
Color 0
Cls
PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B │@X1E INTERNET RELAY CHAT @X10│@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
PrintLn "@X00"
Color 15
For INTEGER004 = 1 To 16
If (INTEGER011 < 250) Then
INTEGER011 = INTEGER011 + 1
If (INTEGER011 <= INTEGER009) Then
PrintLn TSTRING023(INTEGER011)
Goto LABEL016
Endif
STRING006 = "YES"
Break
:LABEL016
Continue
Endif
INTEGER012 = INTEGER012 + 1
If (INTEGER012 <= INTEGER010) Then
PrintLn TSTRING024(INTEGER012)
Continue
Endif
STRING006 = "YES"
Break
Next
If (STRING006 <> "YES") Then
PrintLn "@X00"
Print "@X0E Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
InputText " ", STRING007, 15, 1
If (Upper(STRING007) == "Q") STRING006 = "YES"
Continue
Endif
PrintLn "@X00"
Wait
EndWhile
Return
:LABEL017
STRING006 = "NO"
INTEGER009 = 0
INTEGER010 = 0
INTEGER011 = 0
INTEGER012 = 0
FOpen 1, PPEPath() + "FTP.TXT", 0, 2
FGet 1, STRING013
:LABEL018
If (Ferr(1)) Goto LABEL019
INTEGER009 = INTEGER009 + 1
TSTRING023(INTEGER009) = STRING013
If (INTEGER009 > 249) Goto LABEL019
FGet 1, STRING013
Goto LABEL018
:LABEL019
If (INTEGER009 > 249) Then
FGet 1, STRING013
:LABEL020
If (Ferr(1)) Goto LABEL021
INTEGER010 = INTEGER010 + 1
TSTRING024(INTEGER010) = STRING013
If (INTEGER010 > 249) Goto LABEL021
FGet 1, STRING013
Goto LABEL020
Endif
:LABEL021
FClose 1
While (STRING006 <> "YES") Do
STRING007 = ""
Color 0
Cls
PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B │@X1E FILE TRANSFER PROTOCOL @X10│@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
PrintLn "@X00"
Color 15
For INTEGER004 = 1 To 16
If (INTEGER011 < 250) Then
INTEGER011 = INTEGER011 + 1
If (INTEGER011 <= INTEGER009) Then
PrintLn TSTRING023(INTEGER011)
Goto LABEL022
Endif
STRING006 = "YES"
Break
:LABEL022
Continue
Endif
INTEGER012 = INTEGER012 + 1
If (INTEGER012 <= INTEGER010) Then
PrintLn TSTRING024(INTEGER012)
Continue
Endif
STRING006 = "YES"
Break
Next
If (STRING006 <> "YES") Then
PrintLn "@X00"
Print "@X0E Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
InputText " ", STRING007, 15, 1
If (Upper(STRING007) == "Q") STRING006 = "YES"
Continue
Endif
PrintLn "@X00"
Wait
EndWhile
Return
:LABEL023
STRING006 = "NO"
INTEGER009 = 0
INTEGER010 = 0
INTEGER011 = 0
INTEGER012 = 0
FOpen 1, PPEPath() + "WWW.TXT", 0, 2
FGet 1, STRING013
:LABEL024
If (Ferr(1)) Goto LABEL025
INTEGER009 = INTEGER009 + 1
TSTRING023(INTEGER009) = STRING013
If (INTEGER009 > 249) Goto LABEL025
FGet 1, STRING013
Goto LABEL024
:LABEL025
If (INTEGER009 > 249) Then
FGet 1, STRING013
:LABEL026
If (Ferr(1)) Goto LABEL027
INTEGER010 = INTEGER010 + 1
TSTRING024(INTEGER010) = STRING013
If (INTEGER010 > 249) Goto LABEL027
FGet 1, STRING013
Goto LABEL026
Endif
:LABEL027
FClose 1
While (STRING006 <> "YES") Do
STRING007 = ""
Color 0
Cls
PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B │@X1E WORLD WIDE WEB @X10│@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
PrintLn "@X00"
Color 15
For INTEGER004 = 1 To 16
If (INTEGER011 < 250) Then
INTEGER011 = INTEGER011 + 1
If (INTEGER011 <= INTEGER009) Then
PrintLn TSTRING023(INTEGER011)
Goto LABEL028
Endif
STRING006 = "YES"
Break
:LABEL028
Continue
Endif
INTEGER012 = INTEGER012 + 1
If (INTEGER012 <= INTEGER010) Then
PrintLn TSTRING024(INTEGER012)
Continue
Endif
STRING006 = "YES"
Break
Next
If (STRING006 <> "YES") Then
PrintLn "@X00"
Print "@X0E Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
InputText " ", STRING007, 15, 1
If (Upper(STRING007) == "Q") STRING006 = "YES"
Continue
Endif
PrintLn "@X00"
Wait
EndWhile
Return
:LABEL029
STRING006 = "NO"
INTEGER009 = 0
INTEGER010 = 0
INTEGER011 = 0
INTEGER012 = 0
FOpen 1, PPEPath() + "TELNET.TXT", 0, 2
FGet 1, STRING013
:LABEL030
If (Ferr(1)) Goto LABEL031
INTEGER009 = INTEGER009 + 1
TSTRING023(INTEGER009) = STRING013
If (INTEGER009 > 249) Goto LABEL031
FGet 1, STRING013
Goto LABEL030
:LABEL031
If (INTEGER009 > 249) Then
FGet 1, STRING013
:LABEL032
If (Ferr(1)) Goto LABEL033
INTEGER010 = INTEGER010 + 1
TSTRING024(INTEGER010) = STRING013
If (INTEGER010 > 249) Goto LABEL033
FGet 1, STRING013
Goto LABEL032
Endif
:LABEL033
FClose 1
While (STRING006 <> "YES") Do
STRING007 = ""
Color 0
Cls
PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B │@X1E TELNET REMOTE LOGON @X10│@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
PrintLn "@X00"
Color 15
For INTEGER004 = 1 To 16
If (INTEGER011 < 250) Then
INTEGER011 = INTEGER011 + 1
If (INTEGER011 <= INTEGER009) Then
PrintLn TSTRING023(INTEGER011)
Goto LABEL034
Endif
STRING006 = "YES"
Break
:LABEL034
Continue
Endif
INTEGER012 = INTEGER012 + 1
If (INTEGER012 <= INTEGER010) Then
PrintLn TSTRING024(INTEGER012)
Continue
Endif
STRING006 = "YES"
Break
Next
If (STRING006 <> "YES") Then
PrintLn "@X00"
Print "@X0E Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
InputText " ", STRING007, 15, 1
If (Upper(STRING007) == "Q") STRING006 = "YES"
Continue
Endif
PrintLn "@X00"
Wait
EndWhile
Return
:LABEL035
STRING006 = "NO"
INTEGER009 = 0
INTEGER010 = 0
INTEGER011 = 0
INTEGER012 = 0
FOpen 1, PPEPath() + "USENET.TXT", 0, 2
FGet 1, STRING013
:LABEL036
If (Ferr(1)) Goto LABEL037
INTEGER009 = INTEGER009 + 1
TSTRING023(INTEGER009) = STRING013
If (INTEGER009 > 249) Goto LABEL037
FGet 1, STRING013
Goto LABEL036
:LABEL037
If (INTEGER009 > 249) Then
FGet 1, STRING013
:LABEL038
If (Ferr(1)) Goto LABEL039
INTEGER010 = INTEGER010 + 1
TSTRING024(INTEGER010) = STRING013
If (INTEGER010 > 249) Goto LABEL039
FGet 1, STRING013
Goto LABEL038
Endif
:LABEL039
FClose 1
While (STRING006 <> "YES") Do
STRING007 = ""
Color 0
Cls
PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B │@X1E USENET NEWSGROUPS @X10│@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
PrintLn "@X00"
Color 15
For INTEGER004 = 1 To 16
If (INTEGER011 < 250) Then
INTEGER011 = INTEGER011 + 1
If (INTEGER011 <= INTEGER009) Then
PrintLn TSTRING023(INTEGER011)
Goto LABEL040
Endif
STRING006 = "YES"
Break
:LABEL040
Continue
Endif
INTEGER012 = INTEGER012 + 1
If (INTEGER012 <= INTEGER010) Then
PrintLn TSTRING024(INTEGER012)
Continue
Endif
STRING006 = "YES"
Break
Next
If (STRING006 <> "YES") Then
PrintLn "@X00"
Print "@X0E Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
InputText " ", STRING007, 15, 1
If (Upper(STRING007) == "Q") STRING006 = "YES"
Continue
Endif
PrintLn "@X00"
Wait
EndWhile
Return
:LABEL041
STRING006 = "NO"
INTEGER009 = 0
INTEGER010 = 0
INTEGER011 = 0
INTEGER012 = 0
FOpen 1, PPEPath() + "EMAIL.TXT", 0, 2
FGet 1, STRING013
:LABEL042
If (Ferr(1)) Goto LABEL043
INTEGER009 = INTEGER009 + 1
TSTRING023(INTEGER009) = STRING013
If (INTEGER009 > 249) Goto LABEL043
FGet 1, STRING013
Goto LABEL042
:LABEL043
If (INTEGER009 > 249) Then
FGet 1, STRING013
:LABEL044
If (Ferr(1)) Goto LABEL045
INTEGER010 = INTEGER010 + 1
TSTRING024(INTEGER010) = STRING013
If (INTEGER010 > 249) Goto LABEL045
FGet 1, STRING013
Goto LABEL044
Endif
:LABEL045
FClose 1
While (STRING006 <> "YES") Do
STRING007 = ""
Color 0
Cls
PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B │@X1E ELECTRONIC MAIL @X10│@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
PrintLn "@X00"
Color 15
For INTEGER004 = 1 To 16
If (INTEGER011 < 250) Then
INTEGER011 = INTEGER011 + 1
If (INTEGER011 <= INTEGER009) Then
PrintLn TSTRING023(INTEGER011)
Goto LABEL046
Endif
STRING006 = "YES"
Break
:LABEL046
Continue
Endif
INTEGER012 = INTEGER012 + 1
If (INTEGER012 <= INTEGER010) Then
PrintLn TSTRING024(INTEGER012)
Continue
Endif
STRING006 = "YES"
Break
Next
If (STRING006 <> "YES") Then
PrintLn "@X00"
Print "@X0E Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
InputText " ", STRING007, 15, 1
If (Upper(STRING007) == "Q") STRING006 = "YES"
Continue
Endif
PrintLn "@X00"
Wait
EndWhile
Return
:LABEL047
INTEGER008 = 0
STRING014 = "NO"
STRING018 = ""
STRING017 = ""
STRING015 = ""
Select Case (Upper(STRING008))
Case "I"
AnsiPos 1, 14
Print "@X0EEnter a full or partial IRC site to search for:"
InputText " ", STRING015, 15, 30
If (STRING015 <> "") Then
STRING017 = PPEPath() + "IRC.TXT"
STRING004 = "IRC"
Gosub LABEL056
If (STRING014 == "YES") Then
AnsiPos 1, 16
Print "@X0F", INTEGER008
PrintLn "@X0A matches found in IRC site listing!"
AnsiPos 1, 18
InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
If (Upper(STRING018) == YesChar()) Then
Gosub LABEL055
Endif
Goto LABEL048
Endif
AnsiPos 1, 16
PrintLn "@X0CNo matches were found!"
PrintLn "@X00"
Wait
Endif
:LABEL048
Case "F"
AnsiPos 1, 14
Print "@X0EEnter a full or partial FTP site to search for:"
InputText " ", STRING015, 15, 30
If (STRING015 <> "") Then
STRING017 = PPEPath() + "FTP.TXT"
STRING004 = "FTP"
Gosub LABEL056
If (STRING014 == "YES") Then
AnsiPos 1, 16
Print "@X0F", INTEGER008
PrintLn "@X0A matches found in FTP site listing!"
AnsiPos 1, 18
InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
If (Upper(STRING018) == YesChar()) Then
Gosub LABEL055
Endif
Goto LABEL049
Endif
AnsiPos 1, 16
PrintLn "@X0CNo matches were found!"
PrintLn "@X00"
Wait
Endif
:LABEL049
Case "W"
AnsiPos 1, 14
Print "@X0EEnter a full or partial WWW site to search for:"
InputText " ", STRING015, 15, 30
If (STRING015 <> "") Then
STRING017 = PPEPath() + "WWW.TXT"
STRING004 = "WWW"
Gosub LABEL056
If (STRING014 == "YES") Then
AnsiPos 1, 16
Print "@X0F", INTEGER008
PrintLn "@X0A matches found in WWW site listing!"
AnsiPos 1, 18
InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
If (Upper(STRING018) == YesChar()) Then
Gosub LABEL055
Endif
Goto LABEL050
Endif
AnsiPos 1, 16
PrintLn "@X0CNo matches were found!"
PrintLn "@X00"
Wait
Endif
:LABEL050
Case "T"
AnsiPos 1, 14
Print "@X0EEnter a full or partial TelNet site to search for:"
InputText " ", STRING015, 15, 30
If (STRING015 <> "") Then
STRING017 = PPEPath() + "TELNET.TXT"
STRING004 = "TelNet"
Gosub LABEL056
If (STRING014 == "YES") Then
AnsiPos 1, 16
Print "@X0F", INTEGER008
PrintLn "@X0A matches found in TelNet site listing!"
AnsiPos 1, 18
InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
If (Upper(STRING018) == YesChar()) Then
Gosub LABEL055
Endif
Goto LABEL051
Endif
AnsiPos 1, 16
PrintLn "@X0CNo matches were found!"
PrintLn "@X00"
Wait
Endif
:LABEL051
Case "U"
AnsiPos 1, 14
Print "@X0EEnter a full or partial UseNet site to search for:"
InputText " ", STRING015, 15, 30
If (STRING015 <> "") Then
STRING017 = PPEPath() + "USENET.TXT"
STRING004 = "UseNet"
Gosub LABEL056
If (STRING014 == "YES") Then
AnsiPos 1, 16
Print "@X0F", INTEGER008
PrintLn "@X0A matches found in UseNet site listing!"
AnsiPos 1, 18
InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
If (Upper(STRING018) == YesChar()) Then
Gosub LABEL055
Endif
Goto LABEL052
Endif
AnsiPos 1, 16
PrintLn "@X0CNo matches were found!"
PrintLn "@X00"
Wait
Endif
:LABEL052
Case "E"
AnsiPos 1, 14
Print "@X0EEnter a full or partial E-Mail site to search for:"
InputText " ", STRING015, 15, 30
If (STRING015 <> "") Then
STRING017 = PPEPath() + "EMAIL.TXT"
STRING004 = "E-Mail"
Gosub LABEL056
If (STRING014 == "YES") Then
AnsiPos 1, 16
Print "@X0F", INTEGER008
PrintLn "@X0A matches found in E-Mail site listing!"
AnsiPos 1, 18
InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
If (Upper(STRING018) == YesChar()) Then
Gosub LABEL055
Endif
Goto LABEL053
Endif
AnsiPos 1, 16
PrintLn "@X0CNo matches were found!"
PrintLn "@X00"
Wait
Endif
:LABEL053
Case "A"
AnsiPos 1, 14
Print "@X0EEnter a full or partial Internet site to search for:"
InputText " ", STRING015, 15, 30
Case ""
INTEGER006 = 1
While (INTEGER006 < 7) Do
STRING018 = ""
INTEGER008 = 0
STRING014 = "NO"
If (INTEGER006 == 1) Then
STRING017 = PPEPath() + "EMAIL.TXT"
STRING004 = "E-Mail"
Endif
If (INTEGER006 == 2) Then
STRING017 = PPEPath() + "FTP.TXT"
STRING004 = "FTP"
Endif
If (INTEGER006 == 3) Then
STRING017 = PPEPath() + "IRC.TXT"
STRING004 = "IRC"
Endif
If (INTEGER006 == 4) Then
STRING017 = PPEPath() + "TELNET.TXT"
STRING004 = "TelNet"
Endif
If (INTEGER006 == 5) Then
STRING017 = PPEPath() + "USENET.TXT"
STRING004 = "UseNet"
Endif
If (INTEGER006 == 6) Then
STRING017 = PPEPath() + "WWW.TXT"
STRING004 = "WWW"
Endif
Gosub LABEL056
If (STRING014 == "YES") Then
Color 0
Cls
AnsiPos 20, 11
Print "@X0F", INTEGER008
PrintLn "@X0A matches found in ", STRING004, " site listing!"
AnsiPos 20, 13
InputYN "Would you like to view these sites [@X0FY@X0E/@X0FN@X0E]", STRING018, 14
If (Upper(STRING018) == YesChar()) Then
Gosub LABEL055
Endif
Goto LABEL054
Endif
Color 0
Cls
AnsiPos 20, 12
PrintLn "@X0CNo matches found in ", STRING004, " site listing."
PrintLn "@X00"
Wait
:LABEL054
INTEGER006 = INTEGER006 + 1
EndWhile
End Select
Return
:LABEL055
STRING006 = "NO"
INTEGER013 = 0
While (STRING006 <> "YES") Do
STRING007 = ""
Color 0
Cls
PrintLn "@X0A ", STRING004, " sites found matching your search string are as follows:"
PrintLn "@X00"
Color 15
For INTEGER003 = 1 To 18
INTEGER013 = INTEGER013 + 1
If (INTEGER013 <= INTEGER008) Then
PrintLn TSTRING022(INTEGER013)
Continue
Endif
STRING006 = "YES"
Break
Next
If (STRING006 <> "YES") Then
PrintLn "@X00"
Print "@X0E Press [@X0FQ@X0E]uit or [@X0FENTER@X0E] to continue"
InputText " ", STRING007, 15, 1
If (Upper(STRING007) == "Q") STRING006 = "YES"
Continue
Endif
PrintLn "@X00"
Wait
EndWhile
Return
:LABEL056
FOpen 1, STRING017, 0, 2
FGet 1, STRING013
:LABEL057
If (Ferr(1)) Goto LABEL058
INTEGER005 = 0
INTEGER005 = InStr(Upper(STRING013), Upper(STRING015))
If (INTEGER005 > 0) Then
STRING014 = "YES"
INTEGER008 = INTEGER008 + 1
TSTRING022(INTEGER008) = STRING013
If (INTEGER008 > 99) Goto LABEL058
Endif
FGet 1, STRING013
Goto LABEL057
:LABEL058
FClose 1
Return
:LABEL059
For INTEGER004 = 8 To 20
AnsiPos 1, INTEGER004
Color 0
ClrEol
Next
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 17 Cls
; 1 ClrEol
; 21 Wait
; 25 Color
; 314 Goto
; 275 Let
; 72 Print
; 159 PrintLn
; 217 If
; 8 FOpen
; 6 FAppend
; 14 FClose
; 26 FGet
; 6 FPutLn
; 7 Log
; 7 InputYN
; 38 Gosub
; 18 Return
; 1 Delay
; 40 InputText
; 104 AnsiPos
; 7 Download
; 3 EndProc
;
;
; ■ Functions used :
;
; 73 +
; 1 -
; 118 ==
; 41 <>
; 16 <
; 21 <=
; 21 >
; 16 >=
; 173 !
; 22 &&
; 8 ||
; 75 Upper()
; 2 Left()
; 6 Space()
; 13 Ferr()
; 10 Chr()
; 1 InStr()
; 7 YesChar()
; 1 Inkey()
; 25 PPEPath()
; 1 AnsiOn()
; 1 GetDrive()
; 1 FTell()
; 1 Os()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 8 For/Next
; 16 While/EndWhile
; 128 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------